home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs17.d81 / cad401.sfx / boot (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  3KB  |  37 lines
  1. 1 REM **  CAD VERSION 4.0   **
  2. 2 REM ** BY STEPHEN P. NYE  **
  3. 3 REM **    76703,4032      **
  4. 4 REM ** COPYRIGHT (C) 1987 **
  5. 5 REM
  6. 9 POKE780,0:SYS65424
  7. 10 ONAGOTO16,17,18,19,20
  8. 11 D0=PEEK(186):D1=9+(D0=9):POKE53280,14:POKE53281,12
  9. 12 PRINTCHR$(14);"[147]"
  10. 13 PRINT"1 DRIVE OR 2 DRIVE SYSTEM? (1/2)":GOSUB38:IFVAL(A$)=1THEND1=D0
  11. 14 PRINT"[211]YSTEM IS LOADING...PLEASE WAIT"
  12. 15 A=1:LOAD"USRPKG",D0,1
  13. 16 A=2:LOAD"SYSPKG",D0,1
  14. 17 A=3:LOAD"SYSPKGII",D0,1
  15. 18 A=4:LOAD"SPRITES",D0,1
  16. 19 A=5:SYS36867:LOAD"SYSPKGIII",D0,1
  17. 20 OPEN15,D0,15,"UI:":CLOSE15
  18. 21 REM BO IS BORDER COLOR
  19. 22 REM FC IS FOREGROUND COLOR
  20. 23 REM BC IS BACKGROUND COLOR
  21. 24 REM CU IS CURSOR COLOR
  22. 25 REM SF IS THE CURSOR SPEED
  23. 26 REM SS IS SUPERSPEED VALUE(SPEED 0)
  24. 27 POKE785,0:POKE786,193:BO=14:FC=01:BC=12:CU=11:SF=1:SS=25:PRINT"[147]"
  25. 28 A=USR(9),16384:A=USR(7),BO:A=USR(0),1,7,14:A=USR(1):A=USR(16):A=USR(5),FC,BC
  26. 29 A=USR(6),0,BC:A=USR(6),1,1:A=USR(19):A=USR(21):POKE36862,D0:POKE36863,D1
  27. 30 A=USR(35),0,CU:A=USR(35),1,CU:A=USR(35),2,CU:A=USR(35),3,CU
  28. 31 A=USR(35),6,CU:A=USR(35),7,CU:A=USR(39),0,16:A=USR(39),1,17:A=USR(39),2,17
  29. 32 A=USR(39),3,17:A=USR(39),6,22:A=USR(39),7,23:X=72:Y=137:A=USR(34),X,Y,0
  30. 33 FORT=1TO6000:NEXT
  31. 34 FORT=0TO3:A=USR(33),T:NEXT:SYS36912
  32. 35 GETA$:IFA$=""THEN35
  33. 36 POKE780,ASC(A$):SYS32813
  34. 37 GOTO34
  35. 38 GETA$:IFA$=""THEN38
  36. 39 RETURN
  37.